home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / POWER.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.0 KB  |  41 lines
  1. 100  CLS
  2. 110  SCREEN 0
  3. 120  WIDTH 40
  4. 130  KEY OFF
  5. 140  '
  6. 150  PRINT "***************************************
  7. 160  PRINT "**  POWER/VOLTAGE/CURRENT/RESISTANCE **
  8. 170  PRINT "**   VERS 1.1          DEC. 20,1982  **
  9. 180  PRINT "***************************************
  10. 190  '
  11. 200  LOCATE  7,1
  12. 210  PRINT "- ENTER VALUES OR PRESS ENTER TO SKIP -"
  13. 220  PRINT "       (TWO VALUES ONLY PLEASE)"
  14. 230  '
  15. 240  LOCATE 10,1
  16. 250  INPUT "POWER      = ",P
  17. 260  INPUT "VOLTAGE    = ",E
  18. 270  INPUT "CURRENT    = ",I
  19. 280  INPUT "RESISTANCE = ",R
  20. 290  '
  21. 300  IF (P = 0) THEN 350
  22. 310  IF (E <> 0) THEN I = P/E : R = E/I : GOTO 390
  23. 320  IF (I <> 0) THEN E = P/I : R = E/I : GOTO 390
  24. 330  IF (R <> 0) THEN I = SQR(P/R) : E = I*R : GOTO 390
  25. 340  '
  26. 350  IF (E <> 0) AND (I <> 0) THEN R = E/I : P = E*I : GOTO 390
  27. 360  IF (E <> 0) AND (R <> 0) THEN I = E/R : P = E*I : GOTO 390
  28. 370  IF (I <> 0) AND (R <> 0) THEN E = I*R : P = E*I : GOTO 390
  29. 380  '
  30. 390  LOCATE 10,14 : PRINT P
  31. 400  LOCATE 11,14 : PRINT E
  32. 410  LOCATE 12,14 : PRINT I
  33. 420  LOCATE 13,14 : PRINT R
  34. 430  '
  35. 440  CLEAR
  36. 450  LOCATE 17,1
  37. 460  INPUT "PRESS ENTER TO CONTINUE - ",A$
  38. 470  POKE 106,0
  39. 480  CLS
  40. 490  GOTO 150
  41.